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SPORTS TRAINING DEVICE 

Field of Invention 

The invention relates to training a sportsperson for some 
sporting activity and, in particular, to regulating the move- 
5 ments of the sportsperson engaged in that activity. The 
invention has application to all kinds of sports and to a 
wide range of sportspersons including a novice commencing to 
- learn the rudiments of some sport as well as someone more 
proficient seeking to improve performance, 

10 Background of Invention 

Although related to the particular activity, sports training 
has, generally speaking, followed a miscellany of procedures 
varying from the casual to the systematic. The latter 
category has involved the employment of coaches, special 
15 training facilities and an assortment of sophisticated equip- 
ment. Timing an activity has been commoplace. The invention 
concentrates on temporal intervals between specific movements 
and on temporal proportionality of complex movements. 

Description of the Invention 

20 Broadly, in accordance with the invention, predetermined 
signals are used as timing synchronizers to induce and guide 
the execution of movements by a sportsperson engaged in a 
particular sporting activity. The signals may be produced by 
an electronic device which has been programmed to generate a 
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sequence of auditory pulses having predetermined character- 
istics - 

In the first place ^ the predetermined signals are dependent 
upon the particular sporting activity. In addition, characte- 

5 ristics of the sequential pulses are derived from a prior 
analysis of the movements involved in an appropriate sporting 
behaviour. The prior analysis may be based upon an optimum 
model of performance where the sportsperson is being trained 
to achieve an output for which there is an accepted standard. 

10 Alternatively, the prior analysis may be based upon a model 
derived from a study of the sportsperson' s own behaviour. For 
example, the derived model may be used repetitively by that 
particular sportsperson in order to achieve consistency in 
timing. In another example, a nximber of models may be 

15 analysed so that the sportsperson may experiment with 
different timing strategies. The model may be a human one or 
it may be mechanical. 

From the analysis of the appropriate sporting behaviour, 
stimulus parameters are derived. These parameters may include 

20 the onset of movement of a body part, the duration of move- 
ment and the relative timing of movements of different parts 
of the body. Other information such as speed or force of 
movement may be included. The stimulus parameters are used to 
vary characteristics of the auditory pulses such as intensity 

25 or duration or quality or the like to relate to movements of 
different parts of the body and /or to provide other 
information concerning the particular movement. 
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The stimulus parameters are fed into a programmable computer 
by such means as a keyboard. The auditory pulses are relayed 
to the sport sperson by audio output means. Preferably, the 
audio output means include an individual earpiece for each 
5 sport sperson. The audio output means may include a radio link 
to a remote sport sperson. In either case, timing information 
may be relayed directly and instantaneously to a 
sport sperson. 

In accordance with the invention, a sports training device to 
10 provide synchronisation signals to induce and guide movements 
of a sportsperson engaged in a sporting activity comprises a 
digital logic computer and a tone generator, the computer 
logic being programmed to activate the tone generator in 
accordance with stimulus parameters, means to input into the 
15 computer predetermined stimulus parameters based upon a 
behavioural analysis of models of relevant movement sequences 
of the sporting activity to cause the tone generator to 
generate a sequence of auditory pulses having predetermined 
characteristics and audio output means through which the 
20 generated sounds are relayed to the sportsperson as a preview 
and guide to the sporting activity. 

Brief Description of the Drawings 

Fig.l is a block diagram illustrating a sports training 
device in accordance with the invention; and 

25 Figs. 2a and 2b combined show a circuit diagram illustrating 
one embodiment of a sports training device in accordance with 
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the invention* 

Detailed Description of the Embodiments 

To illustrate the invention, two applications thereof will be 
discussed. For convenience, these applications will be 
5 identified as "sports-synch" and "sports-pacer", respectively. 
A single sports training device may be designed so as to be 
suitable for use in both applications. Alternatively, 
separate devices may be designed specifically for one or 
other application. 

10 The sports -synch is intended primarily for what may be 
described as discrete activities such as hitting a golf ball 
or hitting a cricket ball. Such activities can be made more 
precise if the onset and duration of various body movements 
can be signalled precisely to the sportsperson. Incidentally, 

15 those two particularised activities illustrate the flexi- 
bility of the sports-synch to control self-contained, intern- 
ally triggered actions as occur in golf as well as actions 
which have external timing requirements as in cricket. 

The ideal golf swing involves synchronous movement of several 
20 parts of the body. A sequential signal pattern may be based 
on an analysis of the golf swing using a human or mechanical 
model. The synchrony may be signalled to the golfer by a 
sequence of different auditory tones which signal the onset 
of movement for different body parts. Preferably, the whole 
25 sequence commences with a brief synchronous tone .burst at, 
for example, 2 per second- This tone burst acts as an onset 
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signal and may be triggered at the golfer's discretion. The 
golfer will learn which tones are the trigger for movement of 
particular parts of the body and will then practise to put 
the sequence together with the timing indicated. Thus, the 
5 golfer will learn to maintain consistency in timing. 

The sports-synch also has application to cricket batting 
strokes. Efficient stroke-play in cricket involves a multi- 
plicity of decisions in a short space of time. Sports-synch 
will enable a batsman to practise the timing of specifically 
10 identified shots. The timing sequence of the shot could be 
based upon an ideal model or, alternatively, on an individual 
model as, for example, in the case of juniors whose body 
proportions do not allow them to approach the ideal • 

An analysis of skilled ball hitting (e.g., Bootsma and Wier- 
15 ingen, 1988) indicates that the external trigger for ball 
hitting is consistently related to the distance the ball is 
from the eyes. For this reason, the onset of the timing 
signals generated by a sports-synch for cricket shots will 
preferably be based upon an analysis of a practised profess- 
20 ional playing against a conventional bowling machine. Thus, 
unlike the sports-synch for golf, the device for cricket is 
externally triggered. However, like the golfing version, the 
sports-synch for cricket will generate tones identifying the 
movement of the certain parts of the body. A batsman will 
25 learn which tones relate to particular body parts • He will 
then practise the shot, initially without a ball and then, 
ideally, with a bowling machine. Each shot will be identified 
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by a different tonal sequence and^ preferably, a different 
onset signal for the commencement of each shot. The advantage 
of using the bowling machine is that the batsman could 
practise a certain shot over and over again provided that the 

5 bowling machine is set up to deliver a ball at constant 
length and velocity. In this event, the timing sequence would 
preferably be initiated remotely from the bowling machine by, 
for example, a radio link. If a human bowler were to be used, 
the timing sequence for the shot could be initiated remotely 

10 by a third party such as a coach. Thus the timing of each 
tone would be programmed in advance from a model such that 
the sequence for an activity may be triggered in full from a 
single input. The single input trigger could be initiated 
manually or by a remote signal from another device such as a 

15 bowling machine. The sports-synch could also be reprogrammed 
by the user in order to change various features of the total 
event to suit the individual. 

The sports-synch may be used in other activities which culmi- 
nate in a precise movement which has a timing prerequisite 
20 such as high- jumping, bowling a cricket ball, putting, etc. 
All of these activities involve a single sequence of events 
which should be tailor-made and then initiated singly. 

On the other hand, the sports-pacer is intended for the 
timing of measured repetitive movements such as occurs in 
25 running and swimming. The essential purpose of this device is 
to deliver auditory signals which are to be synchronized with 
the mode of propulsion (e.g., a pace in running or a swimming 
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stroke) such that the pacing feature is immediately convert- 
ible into a measure of velocity. Thus, a sports-pacer acts 
as a speedometer for the athlete. The accuracy of the speedo- 
meter function is dependent upon measurements of the partic- 
5 ular athlete performing over set distances so that paces or 
strokes per distance can be converted to pulses per unit 
time. Given this information, it is possible to programme a 
training regimen for an athlete or a full race without the 
athlete having constantly to check a time-piece. 

10 Preferably, the device would be flexible enough to correct 
for changes in terrain, simply by the athlete or coach noting 
the change in distance travelled over changes in slope of 
running surface. Thus, a race like a marathon could be pro- 
grammed from start to finish. The athlete, in full knowledge 

15 of his speed throughout the race, would be able to preset his 
pace for the race in advance. 

An athlete would also be able to test out different 
strategies for racing given that the pacer would enable the 
athlete to race at different velocities at different stages 
20 of the race, with a precise knowledge of what those 
velocities are. 

An application of the device which differs slightly from the 
prior examples is to aid in synchronizing the run-up of a 
bowler in cricket. Fast bowlers in particular need a precise 
25 rhythm when they bowl. A sports-pacer would be able to 
provide a series of pulses to pace each step in the run-up 
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and the subsequent arm movements leading to the delivery of 
the ball. 

A sports-pacer needs to be a more flexible device than a 
sports-synch. The device would have inbuilt programmes of 
5 performance based , for example, upon the measurement of 
world-class athletes in appropriate races which can be used 
as a model. The device could also be based upon individual 
programmes over set distances. 

The sports training device illustrated in Fig.l is suitable 
10 for both the sports-synch and sports-pacer applications. The 
device comprises a programmable electronic system made up of 
three main components. The first is an input device with a 
keypad which is used to select programmes (if there is more 
than one programme) and input stimulus parameters. The second 
15 is a computer and tone generator with an associated memory 
made with programmable microchips. The third is an audio 
amplifier and speaker, through which the sounds generated by 
the computer are relayed to a sport sper son. 

The device allows the user to select sounds covering a wide 
20 range of frequencies and intensities and arrange them in 
sequence. The sequence can then be played, on command from 
the keypad, through any of a number of speaker or earpiece 
outputs. The device may also contain a display which 
indicates to the user the precise details (frequency, 
25 duration, sequence, etc.) of the information currently 
programmed. The output characteristics of the device can 
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cover the whole range of audible frequencies of sound, the 
tonal durations may range from milliseconds to seconds and 
the total duration of the auditory sequences can be as short 
as milliseconds or as long as hours . The device may include 
5 means whereby a number of different auditory sequences can be 
stored concurrently. Further, the device may incorporate more 
than one programme. In this event, the appropriate programme 
and auditory sequence may be selected through operation of 
the keypad. 

10 Preferably, the audio output means used to relay a sequence 
of auditory tones to a sportsperson comprises an earpiece 
which may be worn by the sportsperson. In the case where the 
same sequence of auditory tones is to be relayed to more than 
one sportsperson, individual earpieces may be supplied to 

15 each person. Where the sportsperson is remotely located as 
in a marathon, the audio output means should include a radio 
link. 

To give greater portability, it is preferred that the 
training device be battery powered. 

20 Figs. 2a and 2b depict a circuit diagram for a sports train- 
ing device according to one embodiment of the invention. With 
this circuit and the computer programme hereinafter detailed, 
the training device may be used either as a sports-synch or a 
sports-pacer. The major differences in function result from 

25 the way in which tonal sequences are selected by the 
programme and are stored in the hardware and triggered by the 
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sportsperson. In the case of the sports-synch function, 
preparatory signals start off a sequence. These are followed 
by a series of tones, whose frequency and inter-pulse- 
intervals have been selected so as to guide a whole-body 

5 action involving the movement of many parts. In the case of 
the sports -pacer function, the range of tones used will be 
less extensive, since it is the repetitive feature of a part- 
icular movement which will be signalled; however, the output 
will be such as to cover the repetitive movement sequence for 

10 the total duration of a sporting activity, such as the 
running of a marathon, which takes over two hours. 

The circuit shown in Figs. 2a and 2b represents a 
programmable tone sequence generator which is controlled by a 
Motorola (MC 68705C8) microcontroller UI. The controller UI 

15 monitors the input keys of keyboard KI and performs all 
timing and tone selection functions for the device operation 
in either of its sports-synch or sports-pacer applications. 
The tones and times are stored in the processor ROM and are 
accessed by the CPU to generate precisely controlled tones 

20 and accurate durations. 

The circuit also includes a reset generator (MC34064) which 
monitors the power supply and holds controller UI in a reset 
condition during power failure or low battery voltage- Volt- 
age regulator (MC78L05) U3 regulates the battery voltage to 
25 give +5 volts for the digital circuit. A generator U4 
generates -5 volts from the +5 supply for the microchip of 
tone generator {ML2035) U5 which takes serial data from 
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controller Ul via the SPI in hexidecimal format to produce a 
sine wave. A low power amplifier (LM386) U6 takes sine wave 
from tone generator U5 and provides sufficient power to drive 
low impedance head phones or earpiece. The power is provided 
5 by a 9 volt battery Bl. 

For the operation of the training device in the manner 
described, a programme suitable for use with the circuit 
shown in Figs. 2a and 2b is as follows:- 
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jProgramable tone sequence generator 



•f* EQUATES 

• V V V V- V V V V V ^ 

f A A A A A A A A A 7 



I/O Ports 



r'A A A A A A 7 



f V V V V..V Vi Af. Y V V Y V Y V. Y V V Y 
r A A A A A A A A AAA A A A A JT a a 



pa: 
pb: 
PRC: 
pd: 



E6U $00 

E6U $01 

EQU «02 

EQU «03 



jPort A Data/address LO Bus 
jPort B address HI Bus 
J Port C 0123 In, 4567 Out 
J Port D Inputs only 



Data Direction Registers 



ddra: 


EQU $04 


;i/0 Port 


ddrb: 


EQU $05 


jDut Port 


ddrc: 


EQU $06 


; In/Out Port 


Serial Periphial 


Interface Registers 


spcr: 


EQU $0A 


jControl Register 


spsr: 


EQU «0B 


; Status Register 


SPDR: 


EQU «0C 


$1/0 Data Register 


;* Serial Comms Inter-face Registers 


BRR: 


EQU $0D 


;Baud Rate Register 


SCCRl: 


EQU $0E 


JControl Reg 1 


SCCR2: 


EQU $0F 


$ Control Reg 2 


scsr: 


EQU $10 


{Status Reg 


scdat: 


EQU $11 


;l/0 Data Reg 



Timer Registers 



tcr: 


EQU 


$12 


jTiroer Control Reg 


tsr: 


EQU 


$13 


5 Timer Status Reg 


icrh: 


EQU 


$14 


; Input Capture Reg HI 


icrl: 


EQU 


$15 


; Input Capture Reg LO 


tocrh: 


EQU 


$16 


; Output Compare HI 


tocrl: 


EQU 


$17 


; Output Compare LO 


tcrh: 


EQU 


$18 


J Timer Count HI 


tcrl: 


EQU 


$19 


5 Timer Count LO 


tcarl: 


EQU 


$1A 


; Timer alternate Count 


tcarh: 


EQU 


$1B 


; Timer alternate Count 



;* Timer Registers in RAM 



TEMPIL: 

tempih: 

TEMP2L: 
TEMP2H: 

msec: 

HSEC: 

newmsecl: 
newmsech: 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$50 
$51 
$52 
$53 
$54 
$55 
$56 
$57 



TISR 0.001 second counter 
TISR 0.1 second counter 
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Ram Pointers 



RAMDATA: EQU *58 
RAMADDL: EQU *59 
RAMASDH: EQU «5A 



;RAM data IN/OUT 

; 



r%ru'io 1 L- ■ 


CTCkl 1 
Eib!U 










RAMPNTL: 


EQU 


*5D 


RAMPNTH : 


EQU 


$5E 


TEMP: 






TEMPA: 


C ^ LJ 




TEMPX : 


EQU 




TEMPL : 


EQU 




TEMPM: 


EQU 

UC Kmf 


^ w O 








FLAG: 






4J t- 1-- 1 w • 




Cfc 


TTMni IT • 




^O/ 


KEY : 




^oo 


dplypnt: 


EQU 


«69 


scale: 


EQU 


«6A 


SEQCNT: 


EQU 


$66 


TICL 


EQU 


«6C 


TTCH 


EQU 


«6D 


msby: 


EQU 


«6E 


LSBY: 


EQU 


«6F 


NUMBER: 


EQU 


«70 


datacnt: 


EQU 


*71 


DIGITS: 


EQU 


*72 


DIGIT4; 


EQU 


*73 


DIGITS: 


EQU 


«74 


DIGIT2: 


EQU 


«75 


DIGITl : 


EQU 


«76 


MSDIGIT: 


EQU 


«77 


L8DI6IT: 


EQU 


*78 


MULTEMP: 


EQU 


*7A 


• 


CONSTANTS 


RABDL: 


EQU 


*FC 


RADDH: 

• 


EQU 


*7F 




.ORG 


*1FF4 




.OW 


INIT 




. DW 


INIT 




.DW 


TISR 




.DW 


INIT 




.DW 


INIT 




.DW 


INIT 



Next RAM address 



; Temp 
; Temp 
; Temp 
; Temp 
; Temp 
9 Tone 
;Flag 



store 
store 
store 
store 
store 
countE 



A 

X 

for 
•for 
r 



ascon 
ascon 



sequence 



register 
;Nd. of notes in 
;Temp store 
;Key number 
5LCD position pointer 
;Storeit 

9 Note sequence counter 
;TISR period counter lo 
fTISR period counter hi 



Tone 
Tone 
Tone 
Tone 
Tone 
Tone 



duration 
duration 
duration 
durat ion 
duration 



mill isecs 
hundredths 
tenths 
seconds 
ten seconds 



timer counters 



;End of RAM Lo byte 
5 End of RAM Hi byte 



;SPI 

;sci 
> Timer 

; IRQ 

fSWI 
$ Reset 
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.ORG «1000 



2C: 



cvb: 

* 

» — — - 



CLR 
CLR 
CLR 
JSR 
STA 
INC 
INC 
CPX 
BNE 
BRA 



RAMADDL 
RAMADBH 

X 

RRAM 
*80, X 
RAMADDL 
X 

£64 

ZC 

CVB 



init: 



.ORG 


*100 




SEI 




;Disable MCU interupts 


RSP 




; Reset stacU pointer 


LDA 


£«FF 


m 
9 


STA 


DDRA 


;Set up I/O ports 


STA 


DDRB 


; Wakes PA & PB outputs 


CLR 


PA 


SPA = 0 


CLR 


PB 


IPB = 0. 


CLR 


PRC 


JPC = 0 


LOA 


£*F0 


jPort C, Bits 4567 outputs 


STA 


DDRC 


;Bit5 3210 inputs 



xxxxx 



Initilize control bus and MCU ram 



V V V V 

A A A A 



BSET 7,PB 
BCLR 4, PRC 
BSET 5, PRC 
BCLR 6, PRC 
BSET 7, PRC 



fCS/EO for battery ram HI 

; Address Latch Enable LO 

;Ram tc LCD R/W HI 

•LCD strobe line LO 
fSine strobe line LO 



CLR FLAG 



iFlag=0 



Initilize SPI Be SCI 



V V V V 
A A A A 



LDA 


£$30 


5 Baud rate = 9600/4MHz 


STA 


BRR 


5 ^ 4800/2MHZ 


CLR 


SCCRi 




LDA 


£*0C 


f Enable receiver 


STA 


SCCR2 





LDA £«50 
STA SPCR 
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**** Initilize RAM addresses 8e sequence counter -X-X-** 



LDA 


£*7F 


5 


STA 


RAMADDH 


9 


LDA 


£*FF 


5 


STA 


RAMADDL 


; Point to top of RAM *7FFF 


JSR 


RRAM 


;Get contents 


STA 


RAMPNTH 




DEC 


RAMADDL 


;Next byte *7FFE 


JSR 


RRAM 




STA 


RAMPNTL 




DEC 


RAMADDL 


;Next byte *7FFD 


JSR 


RRAM 


; 


STA 


SEQCNT 


; Restore sequence number 



f counter +rom ram. 



INITIALIZE THE LCD **** 
I**** LCD ADDRESS A0=0 & A0=1 **** 



LCDINIT: 


JSR 


TIMEINIT 


fStart clock, ims ticks 




JSR 


FCNSET 


J Function set 




JSR 


FCNSET 


jFunction set 




JSR 


FCNSET 


;Function set 




JSR 


BNKOFF 


iDisplay on cursor off 




LDA 


£*06 


5 Entry rnodej. INC address 




JSR 


WCTRL 


fWrite LCD control reg 




JSR 


STCLK 


;Start clock 




LDX 


£01 


; Del ay = imS 




JSR 


DELAYM 


;Wait ImS 


topa: 


LDA 


£200 


5 Setup 200 loops of logo sign 




STA 


TIMOUT 


;before beeping every 5 loops 


topb: 

■ 


JSR 


BEEP3 


; Sound 3 beeps 


; 


FLASH <<SYNCRO - 


SPORT > > MESSAGE ***** 


» Y y Y Y V 

• . . 


Wait 


for Menu selc 


?ct keypress ***** 


logo: 


JSR 


DPYCLR 


; Clear LCD Home cursor 




JSR 


SYNCRO 


; Display SYNCRO - TECH 




JSR 


STCLK 


; Start Millisecond timer 




LDX 


£20 


»2 seconds on 


FLASH: 


BRCLR 7,PD,MSELC 


9 Check for keypress 




CPX 


HSEC 


;Are they equal 




BNE 


FLASH 


;No then check again 




CLR 


TCR 


;Stop clock 


DPYMENU: 


JSR 


DPYCLR 


; Clear display and home cursor 




JSR 


MENU 


; Display menu 
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JSR 


STCLK 


; Start Millisecond timer 


LDX 


£30 


;3 secands on 


BRCLR 7,Pr,MSELC 


; Check for keypress 


CPX 


HSEC 


J Are they equal 


BNE 


FLSH 


;No then check again 


CLR 


TCR 


;Stop clock 


DEC 


TIMOUT 


jLoop counter 


BNE 


LOGO 


J Keep checking -for a keypress 


LDA 


£05 


$ Reset loop counter 


STA 


TIMOUT 


;for 5 counts 


BRA 


TOPB 


jKeep checking -for a keypress 



xxxxx 



Menue select routine ***** 



MSELC: 



DPYMNU! 



CLR 


TCR 


$Stop clock 


LDA 


PRC 


fRead PORTC 


AND 


£«0F 


;Mask o+f top 4 bits 


CMP 


£«06 


il-f key other than 6,7,E,F 


BEQ 


PLYONY 


; selected warning beep sounded 


CMP 


£«07 


5 program reverts to logo/menu. 


BE8 


RSTMEM 


iKey»«06, play notes no store. 


CMP 


£«0E 


J Bit 0,-flag«0 


BEG 


PLYSTR 


}Key=*07, Reset memory to «0000 


CMP 


£«0F 


;Key=*OE, Play and store notes. 


BE8 


PLYMEM 


jBit 0,+lag«l 






;Key-$OFy plaiy notes in memory. 


JSR 


PEEP 


f Setup beep -for 1 beep 


JSR 


KEYRL 


;Wait till key released 


BRA 


DPYMENU 


;Show menu message again 






;Keep scaning keys 



RSTMEM: 


JMP 


RSTRAM 


PLYMEM: 


JMP 


PLAYNUM 


TNEND: 


JMP 


TONEND 


setflg: 


JMP 


SETC 


CLRFL6 


JMP 


CLRC 


1 ~ 

PLYONY: 


BSET 


0,FLAG 




JSR 


PLYNSTR 




JSR 


BNKON 




BRA 


UP 


PLYSTR : 


BCLR 


0,FLAG 




LDA 


SEQCNT 




CMP 


£$30 




BNE 


NOTFST 




LDA 


£*FF 




STA 


SCALE 




JSR 


STORE IT 



f Reset memory to t^OOOO 
$Play what's in memory 
$End tone sequence 



Play 8c store flag 
Set for play only 



5 Play store flag = O 

; If ist sequence put end of 
;sequnce marker in ist ram loc 
SThen 2nd loc is sequence number 

5«FF is placed in ram 1st byte 
; to signify that the next byte 
;is the sequence number 



NOTFST: 



INC SEQCNT 
JSR SEQSAVE 



;Add 1 to sequence number and 
; store it in RAM S7FFD 
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LDA 


SEQCNT 


f Get the sequence number 


STA 


SCALE 


; and store it 


JSR 


STORE IT 


;in next -free RAM byte 


JSR 


BNKOFF 


• 

f 


JSR 


DPYSEQ 


; Display ' SEQ No: ' 


LDA 


SEQCNT 


; Sequence number address 




wl-UD 


9 Display sequence number 


LDX 


£25 


;+or 2.5 seconds 


JSR 


DELAYH 


m 

9 


JSR 


BNKON 


■ 

f 


^^^^ Tone 


selection 


program starts here 



up: 



tones: 
nxtkey: 



LDA 


£$03 


;Counter -for positioning data in 


STA 


DAT AC NT 


5LCD. Initial value =*03 


CLR 


DPLYPNT 


; Clear rowb position counter 


JSR 


NOTES 


; Notes message 


JSR 


KEYRL 


;Wait till key released 


JSR 


NTKEY 


jGet note +rom keys 


STA 


TEMP 


; Save it 


CMP 


£*0E 


; Set -flag for upper tones 


BEQ 


SETFL6 




CMP 


£S06 


; Clear flag -for lower tones 


BEQ 


CLRFLG 




CMP 


£*0F 


;Exit collect notes routine 


BEQ 


TNEND 


; if key =»0F 


LDX 


£72 


;Point to last line in table. 


CMP 


KEYTBLjX 


; Compare to ist colum in table. 


BEQ 


FOUND 


fGot a match, go -found 


DEC 


X 


»No then point to 


DEC 


X 


;next line in table. 


DEC 


X 




DEC 


X 




DEC 


X 





DEC 
BRA 



X 

NXTKEY 



; No match, then try again. 



FOUND: LDA KEYTBL+1,X ; Get note value (2nd column) 

JSR WLCD ; Display in next LCD position 

JSR TSTSHP J test +or a sharp, note in TEMP 

BRSET 1,FLAG,HIGHC ;High or low note 



LDA KEYTBL+2,X 

STA MSBY 

LDA KEYTBL+3,X 

STA LSBY 

BRA SCLE 



Note value (3rd tc 4th column) 
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HIGHC: 


LDA 
STA 
LDA 


KEYTBL+4,X 
MSBY 

KEYTBL+5,X 


»Note value (5th tc 6th column) 

1 

; 




STA 


LSBY 




scle: 


BRSET 0,FLAG,JPONY 


J If flag set play only 




LDA 


MSBY 






STA 


SCALE 






JSR 


STOREIT 


i Store tone frequency 




LDA 


LSBY 






STA 


SCALE 






JSR 


STOREIT 


J Store tone frequency 



The followlns code gets the period of the tone 
(3 bytes) displays and stores it ready for ascon 



JSR 


TSTKEY 


{Get Sc test Ist 


key write 


to LCD 


LDA 


TEMPA 


* 
9 






STA 


DI6IT2 


;Save 1st digit 


ready for 


ascon 


LDA 


£«2E 


; Decimal point 






JSR 


WLCD 


; Write to LCD 






JSR 


TSTKEY 


5 Get test 2nd 


key write 


to LCD 


LDA 


TEMPA 


• 






STA 


DI6IT3 


fSave 2nd digit 


ready for 


ascon 


JSR 


TSTKEY 


;Get &c test 3rd 


key write 


to LCD 


LDA 


TEMPA 


• 






STA 


DIGIT4 


fSave 3rd digit 


ready for 


ascon 


LDA 


£$30 


;Put zero on end 


of digits 




JSR 


WLCD 


; i n LCD 







The following code takes the 5 BCD digits 
stored in DIGITl-5 and converts them to binary 
The result is stored in MSDI6IT & LSDI6IT. 
Digits 1 2e 5 are always zero. 



CLR DIGITl 
CLR DIGITS 



; Digits 1 & 5 always zero 
;eg. tone on =01.230 sees 



CLR 
LDA 
STA 



MSDIGIT 

DIGITl 

LSDIGIT 



iClear upper byte 

;Get most significant digit 

; Store in lower byte 



LDX £*04 



;Set index for 4 digits 



NXTDIG: LDA DIGIT5«1,X 

JSR MULTEN 

DEC X 

BNE NXTDIG 



Get next digit 
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LDA MSDIGIT 

STA SCALE 

JSR STORE IT 

LDA LSDI6IT 

STA SCALE 

JSR STORE IT 

BRA LCOATA 



jpony: 

MULTEN: 





PHMV 


O 1 ri 


Ml 11 TCMD 






OTA 
Sift 


TEMPM 


1 nA 


1 OTk T /a T T 


CTA 
O 1 H 


T tPlPL 


yv oi 

noU 


LSD I BIT 




MSDlBlT 


ASL 


LSDIGIT 


ROL 


MSDIGIT 


LDA 


TEMPL 


ADC 


LSDIGIT 


STA 


LSDIGIT 


LDA 


TEMPM 


ADC 


MSDIGIT 


STA 


MSDIGIT 


ASL 


LSDIGIT 


ROL 


MSDIGIT 


LDA 


MULTEMP 


ADC 


LSDIGIT 


STA 


LSDIGIT 


CLR 


A 


ADC 


MSDIGIT 


STA 


MSDIGIT 


RTS 





Relitive jump to large 



The -folloMirtg code positions the notes and times 
in the LCD eg. (A l.ilO B 2.220) X 2 lines 



lcdata: 



DEC 


DATACNT 


LDA 


£«G3 


CMP 


DATACNT 


BEG 


SPFOUR 


DEC 


A 


CMP 


DATACNT 


6EQ 


SETROWB 


DEC 


A 


CMP 


DATACNT 


BEa 


SPFOUR 


JSR 


ROWA 


LDA 


£*04 


STA 


DATACNT 



fultst: 
pony: 



BRSET 2,FLAG,RFUL 
JSR TONE 
JMP UP 



I Point to next data group in LCD 
Jl-f «03 then put 4 spaces in LCD 

■ 

9 

5 

jl+ =02 then go to line 2 in LCD 

f 

9 

m 

» 

;lf =01 then put * spaces in LCD 
5 

;HFnDt 3,2, or 1 then must be 00 
; Initialise data counter to *04 



;RaTn -full if 2, flag is set 
5 Play note no store 
;Next note 



RFUL: 



JMP DPYMNU 



; Return to the menu 
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tonend: 


BRSET 0, FLAG J 


(TEND 


; Return to menu i-f tone only 




LDA 


£*FF 




;Put *FF in next free byte to 


- 


STA 


SCALE 




5 




JSR 


STOREIT 




vindicate end o-f a tone sequen 


tend: 


JMP 


DPYMNU 




{Return to the menu 


5 

SETC: 


BSET 1,FLAG 




fSet high tones +lag 




JMP 


UP 




jReturn to key checking routine 


CLRC: 


BCLR 1,FLAG 




fCIear high tones -flag 




JMP 


UP 




fReturn to key checking routine 


setrowb: 


JSR 


ROWB 




;Set led to 2nd line 


• — — — 


BRA 


FULTST 




{Return to main routine 


spfour: 


LDX 


£«04 




f Output 4 spaces to LCD 


mores: 


LDA 


£S20 




; 




JSR 


WLCD 




; 




DEC 


X 




; 




BNE 


MORES 




- 




BRA 


FULTST 




;Return to main routine 


tstkey: 


JSR 


KEYRL 




fWait -for key release 




JSR 


NTKEY 




; 




CMP 


£«0C 




« Kev y C then no aood 




BHI 


ERROR 




\ 




CMP 






{Key < 8 then more tests needed 




BLO 


TEST 




• 




BRA 


OK 




18 < key < C then key is ok 


test: 


CMP 


£«05 




■ 

1 




BLO 


OK 




Jl-F key < 5 then key is ok 


error: 


JSR 


PEEP 




5 Beep i-f key is wrong 




BRA 


TSTKEY 




vThen test next key 


OK: 


LDX 


£27 




;Key ok then search table 


NXTLIN: 


CMP 


TIMTBL,X 




\ -for a match 




BEQ 


AOK 




9 Found one 




DEC 


X 




\ 




DEC 


X 




m 

f 




DEC 


X 




m 

9 




BRA 


NXTLIN 




;No then keep looking 


aok: 


LDA 


TIMTBL+2, 


X 


lAscii numbers for LCD 




JSR 


WLCD 




9 




LDA 


TIMTBL+1, 


X 


9 Hex numbers -for timer 




STA 


TEMPA 




9 Save time* 




RTS 






9 


TSTSHP : 


LDA 


TEMP 




1 Get the kev value 




CMP 


£«00 




SCh&ck for SL sha.rQ k&v 




BEG 


SETSHP 








CMP 


£«03 








BEQ 


SETSHP 








CMP 


£*05 








BEQ 


SETSHP 








CMP 


£*09 








BEQ 


SETSHP 








CMP 


£*0C 
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BEQ SETSHP 
BCLR 3, FLAG 
BRA NOSHP 



No sharps 



SETSHP: 



NOSHP : 



BSET 3, FLAG 
LDA £*DF 
JSR WLCD 
BRCLR O, FLAG, RETS 
INC DPLYPNT 
BRCLR 0,FLAG,RTNS 
INC DPLYPNT 
£20 

DPLYPNT 
RETNS 
DPLYPNT 
ROWB 



RETNS: 

RTNS: 

RETS: 



LDA 

CMP 
BHI 
CLR 
JSR 
RTS 



Sharp note 

Places a £ symbol a-fter 

D,F,6,A 8e C in LCD 

1+ set then play store 

Point to next vac LCD position 

1+ set then play te store 

Point to next vac LCD position 

20 positions in 2nd line 

At the end yet 

No then get next note 

Clear rowb position counter 

Yes then 2nd row o-f LCD 

Return 



LDA 
JSR 
LDA 
JSR 
RTS 



£«20 
WLCD 
£*20 
WLCD 



; Output two spaces to LCD 

i 

; Output one space to LCD 



i Return 



Play note sequence ^ 



playnum: 


JSR 


PLAYMES6 


UPIT: 


JSR 


KEYRL 




JSR 


NTKEY 




CMP 


£*05 




BLS 


GOOD 




CMP 


£«06 




BEG 


NOGOOD 




CMP 


£*07 




BEG 


NOGOOD 




CMP 


£«0A 




BLS 


GOOD 


nogood: 


JSR 


PEEP 




BRA 


UPIT 


GOOD: 


LDX 


£16 


sequm: 


CMP 


SEQTBL,X 




BEQ 


FND 




DEC 


X 




DEC 


X 




BRA 


SE6UM 


fnd: 


LDA 


SESTBL+ljX 




STA 


TEMP 




JSR 


WLCD 




CLR 


RAMADDL 




CLR 


RAMADDH 




JSR 


RRAM 



5 Play it message 

;Wait till key released 

5 Get sequence number from 

; Compare to *05 

J Branch i-f less than 6 

106^07 not valid keys 

■ 

9 



keys 



9 

;OB,OC,OD,OE,OF 
;are not valid ke> 
; Warn i ng tone 
;Keep looking -for a valid ke*; 



?ys 



jPoint to last line in table. 

; Compare to Ist col in table. 

yGot a match y go found 

;No then point to 

jnext line in table. 

;No match, then try again. 

;Get sequence Num (2nd column) 
> Store it for a moment 
•Display in next LCD position 
5 Start at SOOOO 

iRead the ist location 
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CMP 
BEQ 



£«AA 
MEMCLR 



; l-f memory has *AA in ist 
{location then memory is clear 



FINDSEQ: 



fndseq: 



CMP 
BEQ 
LDA 
CMP 
BEQ 
BSR 
BRA 



£«FF 

FOUND IT 

RAMADSH 

£«7C 

PANIC 

NXTBYTE 

FINDSEQ 



;Play the sequence 
* 

{End of usable RAM 
;Then end search 
i 

{Keep looking 



yet? 



NXTBYTE: 



ramr: 



FOUND it: 



INC RAMADDL 

BNE RAMR 

INC RAMADDH 

JSR RRAM 
RTS 



BSR 
CMP 
BNE 
JSR 
LDA 
JSR 



NXTBYTE 

TEMP 

FNDSEG 

SHOWIT 

RAMDATA 

WLCD 



;Next byte 
;*FF bytes done yet 
;Yes new block then 
;NOf read the address 



{Display * FOUND SEQUENCE No.' 
{Get the sequence number 
{Display the number 



Data -format in ram is 4 bytes long. The 1st 8c 2nd 
bytes contain the tone -frequency. The 3rd ic 4th byt« 
has the period in multiples o-f 10 milliseconds 



BSET 6, FLAG 
NXTONE: BSR NXTBYTE 
CMP £*FF 
BEQ SQUEND 
STA MSBY 
BSR NXTBYTE 
STA LSBY 
BSR NXTBYTE 
STA MSDIQIT 
INC MSDIGIT 
BSR NXTBYTE 
STA LSDI6IT 
INC LSDI6IT 
BCLR 7, FLAG 
JSR TONE 
JSR STCLK 
TONON: BRCLR 7,FLA6,T0N0N 

CLR TCR 
BRA NXTONE 



Set tone timer -flag 

Get byte from RAM 

Is it the end of sequence? 

Yes then end sequence 

No then 1st byte of tone 

2nd byte of tone 

Tone duration HI byte 

Tone duration LO byte 

Clear time up flag 

Play tone 

Start timer 

Wait till finished 

Stop timer 

Next note in sequence 



MEMCLR: 



JSR CLRMEM 
BRA SQUEND 



{Display * 



MEMORY EMPTY 



panic: 



JSR FAULT 



{Display ' 32K BYTES SEARCHED ' 



SUBSTITUTE SHEET 
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squend: clr msby 

CLR LSBY 

JSR TONE 

BCLR 6, FLAG 

LDX £10 

JSR DELAYH 

JMP TOPA 



NTKEY: BRSET 7,PD,NTKEY 

LDA PRC 
AND £«0F 
RTS 

6ETKEY: BRSET 7,PD,6ETKEY 



i 

•Inhibit tone generator 
iSet -for normal timer counters 
{Wait 1.0 sec be-fore sounding 
;3 beeps and returning to menu. 
{Show menu message again 
{Finished playing sequence. 



V V V V 

AAA A 



{Wait -for key press 
{Get key 

{Mask o-f-f top bits 
{Return, «00-«0F in ACC 

{Wait -for key press 



{ XX XX Get Key program starts here 
J 



LDA PRC 

AND £«0F 

ADD £«30 

JSR WLCD 

JSR KEYRL 
RTS 



{Get key 

{Mask off top bits 
{Convert hex to ASCII 
{Display note in LCD 
{Wait for key release 
{ Return 



{ ^HHHH^jH^ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ** 



I* 

PEEP: 



TONE GENERATION SUBROUTINES 



LDX 
LDA 
STA 
BRA 



9e 



£18 
£20 
BEEPS 
BEEP 



{Point to 1st tone in table 
{No of tones to play (1) 
{ {value of XfNo. of tones) 



BEEPS: 



beep: 



loop: 



LDX £12 

LDA £18 

STA BEEPS 

LDA T0NETBL,X 

STA MSBY 

INC X 

LDA T0NETBL,X 

STA LSBY 

JSR TONE 

STX TEMPX 

JSR STCLK 

LDX £02 

CPX MSEC 

BNE LOOP 

CLR TCR 

LDX TEMPX 

INC X 

CPX BEEPS 

BNE BEEP 



{Point to 1st tone in table 
{No of tones to play (3) 
{ < value of X-fNo. of tones) 

{Get MSBY of tone frequency from 

{table and Save in MSBY 

{Point to LSBY 
{Get LSBY of tone frequency from 

{table and Save in MSBY 

{Play the tone 

{Save X 

{Start the timer 
{for a 300 mS period 

{Time up? no check asain 
yStop the timer 
SYes then restore X 
jPoint to next tone 
; Check if more tones 
;No more tones? 



SUBSTITUTE SHEET 



wo 92/21106 



- 24 - 



PCT/AU92/00237 



CLR MSBY 
CLR LSBY 
BRA SENDT 



; Clear tone stores 
{Then stop the tones 



TONE 


Swaps 


the 


order 


o+ 


the bytes 


SENDT 


Sends 


the 


tones 


to 


tone generator 



tone: 



senst: 



here: 



LDA 


MSBY 


{Save MSBY 




STA 


TEMPA 






LDA 


LSBY 


;Get the LSBY 




STA 


NUMBER 


• 
9 




JSR 


SWAP 


iMirror bits 




LDA 


TEMP 


f 




STA 


MSBY 


{Save mirrored bits 


in MSBY 


LDA 


TEMPA 


■ 

3 




STA 


NUMBER 


5 Ret rive the MSBY 




JSR 


SWAP 


fMirror bits 




LDA 


TEMP 


m 
f 




STA 


LSBY 


;Save mirrored bits 


in LSBY 


LDA 


MSBY 


SLoad LSB to the SPI 


data 


STA 


SPDR 


{register and initiate transf 


BRCLR 7,SPSR,HERE 


fWait till -Finished 




LDA 


LSBY 


;Load MSB to the SPI 


data 



ere: 



STA SPDR 

BRCLR 7,SPSR,ERE 

BSET 7, PRC 

BCLR 7, PRC 

RTS 



{register and initiate trans-fer 
{Wait till finished 
{Strobe in data 
{ 



This routine takes the binary value in NUMBER and 
produces the mirror iminage of the bits. The result of 
this bit manipulation is left in TEMP. 



SWAP: 
LOOPl: 



LDA 
ROR 
ROL 
DEC 
BNE 
RTS 



£«08 
NUMBER 
TEMP 
A 

LOOPl 



{Loop counter 

{Rotate bit into carry bit 

{Rotate carry into next bit 

{8 bits yet 

{ 

{ 



BATTERY RAM SUBROUTINES 



{ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXX XXXX 

RAM address range $0000 - «7FFF * 
RAM address «7FFE ie «7FFF contains pointer to 1st * 
vacant RAM address. # 
RAMDATA contains the data to be writen to and read # 
•from the RAM. The Ist free location holds «AA * 



{* 
{* 
{* 
{* 
{* 
{* 
{* 
{* 
{* 



{ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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SETADDR: 



LDA 


£$FF 


STA 


DDRA 


LDA 




STA 


PA 


JSR 


ALE 


LDA 


RAMADDH 


ORA 


£«80 


STA 


PB 


RTS 




JSR 


SETADDR 




RAMDATA 


STA 


PA 


BCLR 


5, PRC 


BCLR 


7,PB 


BSET 


7,PB 


BSET 


5, PRC 


RTS 




JSR 


SETADDR 


CLR 


DDRA 


BCLR 


7,PB 


LDA 


PA 


STA 


RAMDATA 


BSET 


7,PB 


RTS 





;Port A 
i Outputs 
;Lo address 

i 

; Latched 
fHi address 

;Make sure PB7 always set 



Uram: 



jSet up address -for the data 

; Fetch data 

i Output to data bus 

JR/W = 0 

;CS/EO=0 

;CS/E0=1 

JR/W = 1 

; Return 



RRAM: JSR SETADDR ;Read cycle No 3 

iMake PORTA input 
iOE-0 enable output 
;Read RAM data 
{Save data 
;0E»1 
; Return 

I* Routine to store data in battery backed ram * 
i* At the end o-f this subroutine addresses *7FFF 8c E * 
It address o+ the next -free byte in ram. * 

f* The data in this byte is *AA. ^ 

u xxxxxxxxx xxxxxxxxxxxxy yvvvKyoyvvyy y yxxxxxxxAx x xoxxAxr 



storeit: 



LDA 
STA 
LDA 
STA 
JSR 
STA 



£»7F 

RAMADDH 

£*FF 

RAMADDL 

RRAM 

RArtPNTH 



■or 



DEC RAMADDL 
JSR RRAM 
STA RAMPNTL 



»*7FFF = Address of ram pointer 
;Hi byte 

J Get the contents of *7FFF -fi 
fRAM pointer Hi byte. 

5*7FFE = Lo byte 
iRead RAM address S7FFE +or 
;RAM pointer Lo byte. 



;RAMPNT H&L now contain the address o-f next -free ram byte 
»This address has to be put into RAMADDR H Ec L 



STA RAMADDL 
LDA RAMPNTH 
STA RAMADDH 



I Put Lo byte in RAMADDL 
I Put Hi byte in RAMADDH 
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LDA SCALE 
STA RAMDATA 
JSR WRAM 



jGet tone frequency 

5 Put it where WRAM can get it 

; Store it in RAM 



s** The following code increments ram address counter * 
?** and stores it back to «7FFF «7FFE, next free byte * 

; Point to next ram address 
5= 00 yet? No, then away 
jYes, then point to next block 
J The battery ram is full 



away: 



RAMFULL 



INC 


RAMPNTL 


BNE 


AWAY 


INC 


RAMPNTH 


BMI 


RAMrULL 


LDA 


£«7F 


STA 


RAMADDH 


LBA 


£«FF 


STA 


RAMADDL 


LDA 


RAMPNTH 


STA 


RAMDATA 


JSR 


WRAM 


DEC 


RAMADDL 


LDA 


RAMPNTL 


STA 


RAMDATA 


JSR 


WRAM 


RTS 




JSR 


RAMFUL 


JSR 


BEEP3 


LDX 


£«15 


JSR 


DELAYM 


JSR 


BEEP 


BSET 


2, FLAG 


RTS 





J Set RAM address to «7FFF 



;eet next RAM address Hi byte 
;Put it where WRAM can get it 
; Store it in RAM {«7FFF) 

SSet RAM addres to *7FFE 

J Get next RAM address Lo byte 

;Put it where WRAM can get it 

i Store it in RAM («7FFE) 

I Return 



3 beeps 



(lay 



1.5 SEC d( 
3 beeps 

Set RAM -full -flag 



The -following code writes «FF then *00 then *55 
then «AA in turn to all 32K bytes o-f RAM. 
The sequence counter is reset to zero (*7FFD) . 
«AA is then writen to the let byte o+ RAM. 

rxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxx x »*»» 



i* 
J* 



rstram: 



JSR TESTMSGA 
CLR RAMADDH 



;RAM message 

; Point to bottom o-f RAM 



BLOCK: 



CLR 
JSR 
INC 
BNE 
INC 
BPL 

JSR 
LDX 
JSR 



RAMADDL 

TESTING 

RAMADDL 

BLOCK 

RAMADDH 

BLOCK 

TESTMS6B 
£20 

DELAYH 



;Test RAM 
;Next byte 

;$00 yet? No then do some more 
;Yes then next block 
;«7FFF bytes done yet 

$ Finished message 

5 Display for 2 sees 



SUBSTITUTE SHEET ! 



wo 92/21106 



PCT/AU92/00237 



- 27 - 



a: 



b: 



c: 



LDA 


£*7F 


STA 


RAMADDH 


LDA 


£*FF 


STA 


RAMADDL 


CLR 


RAMDATA 


JSR 


WRAM 


DEC 


RAMADDL 


JSR 


WRAM 


DEC 


RAMADDL 


LDA 


£$30 


STA 


SEQCNT 


STA 


RAMDATA 


JSR 


WRAM 


CLR 


RAMADDH 


CLR 


RAMADDL 


CLR 


RAMPNTH 


CLR 


RAMPNTL 


JMP 


TOPA 


LDA 


£*FF 


STA 


RAMDATA 


JSR 


WRAM 


CLR 


RAMDATA 


JSR 


RRAM 


LDA 




CMP 


RAMDATA 




n 




FAULTY 




PAMT1ATA 


JSR 


WRAM 


LDA 


£*FF 


STA 


RAMDATA 




RRAM 


V>f IN 


A 




PAMT)ATA 




iD 


TMP 
«j I'll 


PAI 11 TV 






STA 
win 


RAMDATA 


JSR 


WRAM 


CLR 


RAMDATA 


JSR 


RRAM 


LDA 


£$55 


CMP 


RAMDATA 


BE8 


c 


JMP 


FAULTY 


LDA 


£$AA 


STA 


RAMDATA 


JSR 


WRAM 


CLR 


RAMDATA 


JSR 


RRAM 



Point to top of battery 
RAM 

Put *00 into *7FFF 
Put *00 into *7FFE 



Initialise sequence counter 
and *7FFD to O 

Set RAM address counters to 
Zero 



Sound 3 beeps return to menue. 



9 

y 

; Write *FF to RAM 

; Destroy contents of RAMDATA 

; Read RAM 
• 

jDoes it =*FF 

I Yes then keep going 2=1 

;No then fault Z=0 

5 

; Write «00 to RAM 

m 
» 

; Destroy contents of RAMDATA 

;Read RAM 

5 

iDoes it =$00 

fYes then keep going Z=l 

5 No then fault Z=0 

; 
• 

J Write *55 to RAM 

; Destroy contents of RAMDATA 

$Read RAM 

;Does it =$55 

5 Yes then keep going Z=l 

;No then fault Z=0 
■ 

{Write *AA to RAM 

5 Destroy contents of RAMDATA 

;Read RAM 



wo 92/21106 



- 28 - 



PCT/AU92/00237 



d: 



faulty: 



seqsave: 



1 DA 


£$AA 




TMP 

Will 


RAMSATA 


J Does it =*AA 


Jococ 




9 Yes then keep going Z=l 


TMP 


PAili TY 


yMo then fault Z=0 


K 1 9 




iLsLst test leaves RAM 
f location = *AA 


JSR 


WRNMSG 


; Sound warning beep 


RTS 




■ 


^ Iff! 




$ Sequence number address 


STA 
win 


RAMADBH 


5 i n RAM= *7FFD 






\ 

7 


OX A 
O 1 H 


PAMATirtl 
n ri 1 'Iri JJ JJ lU 


m 

9 






•Get seauence count 


O 1 ri 


PAMDATA 


;Put it where WRAM can get 


JSR 


WRAM 


; Write to RAM (*7FFF) 


RTS 




; Return 


LDA 


£*7F 


; Sequence number address 


STA 


RAMADDH 


; i n RAM= *7FFD 


LDA 


£«FD 




STA 


RAMADDL 


m 
9 


JSR 


RRAM 


?Get number in RAM 


STA 


SEQCNT 


;Put it in counter 


RTS 




; Return 



it 



SE66ET: 



LIQUID 

LCDIR 
LCDDR 
WCTRL 
RCTRL 
WLCD 
PORTC 
LCBUSY 
NOTE: 



SUBROUTINES 
A0=0 



A0=1 



XXXXXXXXXXXXXXXXXXXXXXXXXK » » »XXXXXXXXXXXXX XXXXXXXXXXXXX 

* 
* 

* LCDIR Sets address 
Sets address 

Writes to control register 
Reads control register 
Writes to data register 
Bit6 Provides strobe pulse 
DB7=1 Then LCD Busy. Return 



All 
1 ini 



CRYSTAL DISPLAY 

RS=0 
RS=1 
R/W=0 

R/W=i 
R/W=0 
for LCD 

when DB7=0 
LCD subroutines should leave control 
is in original state. 



* 
* 

* 

* 

* 



;xxxxxxxxxxxxx] 


txxxxxxxxx* 


**^»*xxxxxxxxxxxxxxxxxxxxxxxxx 


rowa: 


LDA 


£«80 


jSet cursor to 1st row 




BRA 


WCTRL 


; 


rowb: 


LDA 


£*C0 


J Set cursor to 2nd row 


WCTRL : 


JSR 


LCDIR 


;Set LCD IR address AO=0/RS=0 




STA 


PA 


5 Write control word to LCD 




BCLR 


5, PRC 


;r/w = 0 




BSET 


6, PRC 


IE » 1 Strobe E line on LCD 




BCLR 


6, PRC 


;e = 0 




BSET 


5, PRC 


JR/W = 1 




RTS 




i Return 


5 ~~ ~ 

RCTRL: 


JSR 


LCDIR 


;Set LCD IR address (RS =0) 




CLR 


PA 


m 

9 




STA 


DDRA 


; PORTA=input 




BSET 


6, PRC 


; Strobe E line on LCD <R/W=1) 
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LDA PA 
BCLR 6, PRC 
RTS 



; Read 
;e = 0 

; Returns with LCD data in ACC 



WLCD: 



JSR LCOOR 
STA PA 



«Set LCD IR address (RS =^1) 
; Write data word to LCD 



LCDIR: 



LCDDR: 



DPYCLR! 



home: 



BCLR 


5 9 PRC 


f R/ w = 0 


BSET 


6, PRC 


; Strobe E line on LCD 


BCLR 


6, PRC 


5E = 0 


BSET 


5, PRC 


;R/w = 1 


RTS 




; Return 


JSR 


SAVE 


;Save A&X 


LDA 


£*FF 


;LCD Instruction Register 


STA 


DDRA 


;Set Port A output 


CLR 


PA 


9 PORTA - 00 RS=0 


JSR 


ALE 


; Latch address to LO Bus 


JSR 


RESTORE 


; Restore AfteX 


RTS 




; Return 


JSR 


SAVE 


jSave A&X 


LDA 


£*FF 


;LCD Data Register 


STA 


DDRA 


5 Set port A output 


LDA 


£«01 


9 


STA 


PA 


; PORTA = Oi RS=1 


JSR 


ALE 


; Latch address to LO Bus 


JSR 


RESTORE 


; Restore A8cX 


RTS 




; Return 


LDA 


£«01 


; Clear display. 


JSR 


WCTRL 


;Write LCD Control Reg. 


LDX 


£10 


9 


JSR 


DELAYM 


;Wait till done. 


LDA 


£«02 


5 Return cursor to home position 


JSR 


WCTRL 


;Write LCD Control Reg. 


LDX 


£10 


. 

9 


JSR 


DELAYM 


;Wait till done. 


RTS 




; Return. 



LCBSY: JSR RCTRL 

BRSET 7, PA, LCBSY 
RTS 



;Read instruction register 

;test db7=i for busy 

; Return 



FCNSET : 



LDA £*38 

JSR WCTRL 

LDX £10 

JSR DELAYM 
RTS 



5 Function set 

;Write LCD Control REG 

•Delay » lOmS 

;Wait lOmS 
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bnkon: LOA £«0D 

JSR WCTRL 

LDX £01 

JSR DELAYM 

RTS 



{Display on/o-f-f control 
) Display on cursor o-f + 



{Wait 
i 



ImS 



bnkoff: 



1-DA £$0C 

JSR WCTRL 

LDX £01 

JSR DELAYM 
RTS 



{Display on/o-ff control 
{Display on cursor of-f 

{Wait ImS 



* -V Y V Y ^ 
f A A A A 7 

{* 



MISCELANEOUS SUBROUTINES 
ADDRESS LATCH ENABLE, 



/ VVVt/VVVVfVVVVVVVVVVVVV 

r A A A A A A A A JC A A 7C A A A jrW ^TTCTr^ 



;^ SAVE A&X, RESTORE A&X, * 

I* KEYRL, DELAY XXXXXXXXXX * 



ale: 


BSET 
BCLR 
RTS 


4, PRC 
4, PRC 


{ALE = 1 
{ALE = 0 
{ Return 


» — 

save: 


STA 
STX 
RTS 


TEMPA 
TEMPX 


{Save A 
{Save X 
{Return 


> — 
restore: 


LDA 
LDX 
RTS 


TEMPA 
TEMPX 


{Restore A 
{Restore X 
{ Return 


{ DELAYM 


Uses X and MSEC to give a varrible length delay 
in 0.001 SEC increments. 


{DELAY Uses X and HSEC to give a varrible length delay 
{ in 0.1 SEC increments. 


DELAYM: 
LOOP2: 


JSR 
CPX 
BNE 
BRA 


timeinit 

MSEC 

L00P2 

RTN 


{Start clock 

{Compare X with LOW counter 
{Loop till equal 
{Stop clock and return 


> ~ 

delayh: 

L00P3: 

rtn: 


JSR 
CPX 
BNE 
CLR 
RTS 


STCLK 
HSEC 
LOOP3 
TCR 


{Start clock 

{Compare X with HIGH counter 
{Loop till equal 
{Stop clock 
{ Return 


{ ~ — — — 
keyrl: 


BRCLR 
RTS 


7, PD, KEYRL 


{Wait till key released 
{ Return 
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9 A/%A/\/\/»/\/\/\/*A/\/\AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

LCD Messages ^ 



SYNCRO: 


CLR 


X 


;x=o 


repta: 


LDA 


SYNC , X 


{Get character 




JSR 


WLCO 


i D i sp 1 ay it 




INC 


X 


a 

f 




CPX 


£20 


;20 chrs yet 




BCS 


REPTA 


9 No keep going 




JSR 


ROWB 


;2n<l line 




CLR 


X 


5X=0 


rpta: 


LDA 


MENUE,X 


;Get character 




JSR 


WLCD 


; D i sp 1 ay it 




INC 


X 


! 




/-I r> w 




5 20 chrs yet 




BCS 


RPTA 


iNo keep going 


a 


RTS 




; Return 


MENU: 


CLR 


X 


;x«o 


reptb: 


LDA 


SELECT 1,X 


5 Get character 




JSR 


WLCO 


f Display it 




ZNC 


X 


a 

9 




CPX 


£20 


;20 chrs yet 




BCS 


REPTB 


;No keep going 



rptb; 



JSR ROWB 

CLR X 

LDA SELECT2,X 

JSR WLCD 

INC X 

CPX £20 

BCS RPTB 
RTS 



;2nd line 
;x=o 

jGet character 
I D i sp 1 ay it 

m 

5 20 chrs yet 
5 No keep going 
; Return 



NOTES: 
REPTC: 



JSR DPYCLR 

CLR X 

LDA NOTE,X 

JSR WLCD 

INC X 

CPX £12 

BCS REPTC 
RTS 



5 Clear LCD 
5X=0 

5 Get character 
5 Display it 

a 

9 

9 12 chrs yet 

9 No keep going 

9 Return. LCD cusor 



left at next 



PLAYMESG: JSR DPYCLR 



reptd: 



CLR 
LDA 
JSR 
INC 
CPX 
BCS 
RTS 



X 

PLYMSG,X 
WLCD 

X 

£15 
REPTD 



9pDsition. 
5Clear LCD 
;x=o 

9 Get character 
9 D i sp 1 ay it 

a 

9 

9 15 chrs yet 

9N0 keep going 

5 Return. LCD cusor left at next 
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clrmem: 
repte: 



JSR 


ROWS 


CLR 


X 


LDA 


CLRMS©,X 


JSR 


WLCD 


INC 


X 


CPX 


£20 


BCS 


REPTE 


RTS 





{position. 
{Clear LCD 

;x=o 

J Get character 
{Display it 
f 

5 20 chrs yet 
J No keep going 
{Return. 



zeromsg: 


CLR 


X 


reptf: 


LDA 


zero,x 




JSR 


WLCS 




INC 


X 




CPX 


£20 




BCS 


REPTF 




JSR 


ROWB 




CLR 


X 


RPT6: 


LDA 


RESET, X 




JSR 


WLCS 




INC 


X 




CPX 


£20 




BCS 


RPTG 




RTS 




FINIS: 


JSR 


DPYCLR 




CLR 


X 


repth: 


LSA 


FIN,X 




JSR 


ULCD 




INC 


X 




CPX 


£20 



{X«0 

{Get character 
{Display it 
{ 

{20 chrs yet 
{No keep going 
{2nd line 
;X«0 

{Get character 
{Display it 
{ 

{20 chrs yet 
{No keep going 
{Return 



{Clear LCD 
{X«0 

{Get character 
{Display it 
i 

{20 chrs yet 



BCS REPTH 
RTS 



{No keep going 

{Return. LCD cusor le-ft at next 
{position. 



fault: 


JSR 


ROWB 


{Clear LCD 




CLR 


X 


iX»0 


REPTi: 


LDA 


FALTY,X 


{Get character 


JSR 


WLCD 


{Display it 




INC 


X 


f 




CPX 


£20 


{20 chrs yet 




BCS 


REPTI 


{No keep going 




RTS 




{Return. 


» — 
showit: 


JSR 


ROWB 


m 




CLR 


X 


{XsO 


reptj: 


LDA 


FNDIT,X 


{Get character 


JSR 


WLCD 


{Display it 




INC 


X 


m 
t 




CPX 


£18 


{18 chrs yet 




BCS 


REPTJ 


{No keep going 




RTS 




{Return. LCD cusor le+t at 






{position. 



SUBSTITUTE SHEET ) 
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plynstr: 


JSR 


DPYCLR 


; Clear LCD 




CLR 


X 


;X»0 


reptk: 


LDA 


ONLYPLYjX 


;6et character 




TOD 


WUUJLI 


* n 4 en 1 i 4> 

9 SJl Sp 1 eiy 1 ^ 




INC 


X 


■ 




CPX 


£20 


iZO chrs yet 




BC8 


REPTK 


;Nd keep going 




JSR 


ROWB 


i2n<l line of display 




RTS 




i Return. 


> -------- 

testmsga: 


JSR 


DPYCLR 


; Clear LCD 




CLR 


X 


5X=0 


REPTU: 


LDA 


MESGAfX 


iGet character 




JSR 


WLCD 


;Di5play it 




INC 


X 


• 

> 




CPX 


£20 


J20 chrs yet 




BCS 


REPTU 


{No keep going 



RTS J Return. LCD cusor left at next 

{position. 



TESTi4SGB: 


JSR 


ROWB 


;2ncl line o-f display 






CLR 


X 


;X«0 




REPTV: 


LDA 


MESGB,X 


{Get character 






JSR 


WLCD 


{Display it 






INC 


X 


i 






CPX 


£20 


;20 chrs yet 






BCS 


REPTV 


;No keep going 






RTS 




{Return. LCD cusor left 


at 








{position. 




DPYSEQI 


JSR 


DPYCLR 


{Clear LCD 






CLR 


X 


;x=0 




REPTW: 


LDA 


8EQDPY,X 


{Get character 






JSR 


WLCD 


{Display it 






INC 


X 


a 

9 






CPX 


£8 


;8 chrs yet 






BCS 


REPTW 


;No keep going 






RTS 




{Return. LCD cusor left 


at 



ramful: 

REPTX: 



RPTX: 



CLR 


X 


{X=0 


LDA 


RAMF,X 


{Get character 


JSR 


WLCD 


{ D i sp 1 ay it 


INC 


X 




CPX 


£20 


{20 chrs yet 


BCS 


REPTX 


{No keep going 


JSR 


ROWB 


{2nd line 


CLR 


X 


{X«0 


LDA 


RAMFL,X 


{Get character 


JSR 


WLCD 


{Display it 


INC 


X 




CPX 


£20 


{20 chrs yet 


BCS 


RPTX 


{No keep going 


RTS 




{Return 



position. 



[ SUBSTITUTg SHEET 
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wrnmsg: clr 


X 




RPTZ: LDA 


WRNMESG,X ;Get 


character 


JSR 


WLCD 


^Display it 


INC 


X 


• 


CPX 


£20 


120 chrs yet 


BCS 


RPTZ 


;No keep going 


RTS 




f Return 




8XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


Timer Subroutines 


* 










TIMEINIT. 




sTni-hialis^ TISR tn aive a. ImS 


STA 


TICL 


f uime aeieiy 


f n A 

LDA 


£901 




STA 


Tiwn 








Sao 'ROO V 7tiQslTnc% 


LDA 


TCRH 


9 inzs uDue wne 


STA 


TEMPIH 


9Cont,ent,5 ot rree 


LDA 


TCRL 


9 running counter 


STA 


TEMPIL 


; stores it in a tempory 


CLC 




;location9 adds contents o-f 


LDA 


TICL 


5TICL tc TICH to it, then stores 


ADC 


TEMPIL 


Jit back into the Output 


STA 


TEMP2L 


{Compare Register 


LDA 


TICH 




ADC 


TEMPIH 




STA 


TOCRH 




LDA 


TEMP2L 




STA 


TOCRL 




STCLK: CLR 


MSEC 


;Zero milliseconds 


CLR 


MSEC 


9 Zero hun thseconds 


LDA 


£«40 


;Enable Bit 6 -for interupt 


STA 


TCR 




LDA 


TSR 


; Clear Flags 


LDA 


TOCRL 




CLI 




; Clear processor interupt 


RTS 




; Return 



. xXXXXXXXX*XXXXXX»»»^^XXXXXXXXXXXXXXX XX XX XX XXXXX XXX jH{-* 
Timer Interupt Service Routine 

;xxxxxxx xxxxxxxxxxxxxxxxx *xxxxxxxxxx xxxxxxxxxxxxxxxxxxxx 



tisr: sei J 



LDA 
STA 
LDA 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 



TCRH 
TEMPIH 
TCRL 
TEMPIL 

TICL 

TEMPIL 

TEMP2L 

TICH 

TEMPIH 



; Interupt Service Routine 
{Gets the current value o-f 
{timer counter, adds TICL & H 
;it and stores it back into 
; timer Output Compare Reg 



to 



;i+ 



clock = 2uS 
; period o+ interupt 
;= 2uS * 500 
5 = ImS 
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totm: 



return: 



olvl: 
retrn: 



STA 


TOCRH 


* 


LDA 


TEMP2L 


s 

f 


STA 


TOCRL 


■ 

1 


BRSET 6, FLAG, TOTM 




INC 


MSEC 


{MSEC counter +1 






{ 


CMP 


MSEC. 


s t fin 1 fviQ r*niin^C£ N/of* 


BNE 


RETURN 


f Kim ^ hon r^e^Lii^rk 


CLR 


MSEC 


s Yds ^hen zer^o caLLnt.ep 


INC 


HSEC 


s inOmS coLinl!.@i^ 


BRA 


RETURN 


{ 


DEC 


LSDI6IT 


• Tone t.iTnera coun'ts down 

■ t 1 m ^ Alii i m li» ■ f ^ ^» w ^ » » 


BNE 


RETURN 


■ decreinent.s to zero then 


DEC 


MSDIGIT 


Stone end f laQ* 


BNE 


RETURN 


■ 

f 


BSET 


7, FLAG 


s Tone oer^iod finished 


BRCLR 0,TCR,OLVL 




BCLR 


0,TCR 




BRA 


RETRN 




BSET 


0,TCR 




LDA 


TSR 


; Timer Flags Cleared 


LDA 


TOCRL 




CLI 






RTI 




{Return From Interupt 



i n Im 
sets 



J xxxxxxxxx x xxxxxxxxxxxxx * xxxxxxxxxxxxxxxxxxxxxxxx »»*»**» 

;^ LCD MESSAGES * 

i xxxxxxxxxxxxx xxx x xxx xxx ^ xxxxxxxxxxxxxy j c ^^xxxxxxxxxxx**^ 



sync: 
menue: 

SELECT l: 
SELECT2: 

onlyply: 

note: 

plymsg: 

clrmsg: 

zero: 

RESET : 

fin: 

FALTY: 

fndit: 

mesga: 

mesgb: 

seqdpy: 

ramf: 

RAMFL: 

wrnmesg: 



.byte 
.byte 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



<<SYNCRO - sport >> 
MENU: SELECT NUMBER, 
l: PL AY /SAVE 2: REPLAY 
3: PLAY ONLY 4:MEMRST 
PLAY ONLY NO STORE 
NOTE/TIME: 
PLAY SEQUENCE: * 
MEMORY EMPTY 
32K BYTES MEMORY 
RESET 
RAM CLEARED 
32K BYTES CHECKED 
Found sequence No ' 
TESTING 32K BYTE RAM 
Finished testing RAM 
SEQ No: ' 

<<< WARNING >>> 
< RAM IS FULL > 
<<< RAM FAULTY >>> 



SUBSTITUTE SHE€T 
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, AAAAAAAAAAn^.,r^.n,r^^»^»^ » X X X X X X X-»»****X XXX** 

TABLES fie CONSTANTS * 
. jHHHHe»»***********K X X X X X X***X XXXXXXXX ***H }t^**itit******** 



KEYTBL: 



SEGTBL: 



timtbl: 



FCB 


*00 , ' D ' 




$18, 


$E4 


FCB 


*0i, 'E' 


,*OC,*EO, 


*19, 


$C0 


FCB 


*02, 'F' 


,$0D,$A4, 




$48 


FCB 


*03 , ' F ' 


, *0E , *74 , 




$E8 


FCB 


*04 , ' G ' 


, *0F , *50 , 


$1E , 


$AO 


FCB 


*05, '6' 


,*i0,*39, 


$20, 


.1 III 
$72 


FCB 


*08, 'A' 


, *il , *30, 


$22, 


$60 


FCB 


*09 , ' A ' 


,$11 ,$6E, 


$22 5 


^1- M 
$DC 


FCB 


*OAj ' B' 


,*13,*4A, 


$26, 


$94 


FCB 


*0B, • C 


,$14, *70, 


$28, 


$E0 


FCB 


*OC , ' C ' 


, $15, $A89 


$2B, 


$50 


FCB 


*0D, 'D' 


r$16,$F2, 


$2Dr 


$E4 


FCB 


*07, 'R' 


,$009$00y 


$00, 


$00 


FCB 


SOOy • 1 ' 








FCB 


*01, '2' 








FCB 


*02, '3' 








FCB 










FCB 


*04, '5' 








FCB 


*05 , * 6 ' 








FCB 


*08 , ' 7 ' 








FCB 


*09 , * 8 ' 








FCB 


*0A, '9' 








FCB 


*00,*01 








FCB 


$01 ^^02 


, '2' 






FCB 


*02 , *03 


> '3' 






FCB 


*035*04 








FCB 


*04,*05 








FCB 


$08,^06 


^ '6' 






FCB 


*09,*07i 








FCB 


90 A 9 *08 : 


, '8' 






FCB 


*0B,*09, 


f *9' 






FCB 




» o 






FCB 


*0C,«27 


;31l. 1 


Hz 




FCB 




;349.2 


Hz 




FCB 


«0F,$50 


i 392.0 


Hz 




FCB 


«11,«30 


;440.0 


Hz 




FCB 


«13,«4A 


;493.8 


Hz 




FCB 


«15,«A8 


J 554. 4 


Hz 




FCB 


«18,«4E 


;622.2 


Hz 




FCB 


$iB,$48 


;1B4.8 


Hz 




FCB 


$1E,$A0 


; 784.0 


Hz 




FCB 




; 880.0 


Hz 





END 
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The software and hardware, as described, are subject to 
modification as may be necessary to adapt the training device 
to a variety of other athletic functions which have not been 
described specifically in this application. Other changes 
5 and modifications will be apparent to persons skilled in the 
art and may be made without departing from the broad concepts 
of the invention as herein described and claimed. 
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CLAIMS 

1. A sports training device to provide synchronisation 
signals to induce and guide movements of a sport sperson 
engaged in a sporting activity comprising a digital logic 
computer and a tone generator, the computer logic being 
programmed to activate the tone generator in accordance with 
stimulus parameters, means to input into the computer 
predetermined stimulus parameters based upon a behavioural 
analysis of models of relevant movement sequences of the 
sporting activity to cause the tone generator to generate a 
sequence of auditory pulses having predetermined 
characteristics and audio output means through which the 
generated sounds are relayed to the sportsperson as a preview 
and guide to the sporting activity. 

2. A device as claimed in Claim 1, wherein the sequence of 
auditory pulses signal the onset of specific movements to be 
performed by the sportsperson. 

3. A device as claimed in Claim 1, wherein the sequence of 
auditory pulses signal the onset and duration of specific 
movements to be performed by the sportsperson. 

4. A device as claimed in Claim 1, wherein the 
predetermined characteristics of the pulses relate to 
movements of different parts of the body. 

5. A device as claimed in Claim 4, wherein the 
predetermined characteristics also signal additional 
information concerning the movements to be performed. 
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6. A device as claimed in Claim 1, wherein said audio 
output means includes an earpiece to be worn by the 
sport sperson. 

7. A device as claimed in Claim 1, wherein the audio output 
means includes a radio link. 

8. A device as claimed in Claim 1, wherein the means to 
input stimulus parameters includes a keyboard. 

9. A device as claimed in Claim 1, including means whereby 
a number of different auditory sequences may be stored 
concurrently . 

10. A device as claimed in Claim 1, wherein means are 
included to store a plurality of programmes. 
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